home *** CD-ROM | disk | FTP | other *** search
/ Amiga Format CD 22 / Amiga Format AFCD22 (Jan 1998, Issue 106).iso / -seriously_amiga- / commercial / ppaint7_update / install next >
Text File  |  1997-11-17  |  3KB  |  70 lines
  1. ; $VER: InstallPPaint7_Update 1.2
  2. ; Cloanto PPaint 7 Update Installer Script
  3. ; Copyright © 1996, 1997 Cloanto Italia srl
  4. ; Cloanto is a registered trademark of Cloanto Italia srl
  5. ; "Installer and Installer project icon Copyright © 1991-1993 Commodore-Amiga, Inc. All Rights Reserved
  6. ;  Reproduced and distributed under license from Commodore"
  7. ; New installer icon design Copyright © 1994 Cloanto Italia srl
  8.  
  9. (set #which-dir
  10.     "Please indicate the directory where Personal Paint 7.0 is installed:")
  11.  
  12. (set #which-dir-help
  13.     (cat "\nThis program updates the \"PPaint\" v. 7.0 program file."
  14.     "\n\nPlease specify the full path of the installed Personal "
  15.     "Paint software, including the final \"PPaint\" directory name "
  16.     "(or other, if a different drawer name was used).\n\n"
  17.     @askdir-help))
  18.  
  19. (set #message-ppaintnotok
  20.     "\nThis update was not designed for the selected Personal Paint program file. It will not be updated.")
  21.  
  22. (set #error-ppaint
  23.     "\nPersonal Paint 7.0 program file could not be found. It will not be updated.")
  24.  
  25. (set #busy-ppaint
  26.     "Updating Personal Paint 7.0 program file.")
  27.  
  28. (if (AND (<> (getassign "PSUITEROOT" "a") "") (<> (getassign "KARACDROOT" "a") "")) (set ppaint_dest "") (set ppaint_dest (getassign "PPaint" "a")))
  29. (if (<> (getassign "PCDPPAINT" "a") "") (set ppaint_dest (getassign "PCDPPAINT" "a")))
  30. (if (AND (<> (getdevice ppaint_dest)(getdevice "RAM:"))(< (getdiskspace ppaint_dest) 10240)) (set ppaint_dest ""))
  31. (if (= ppaint_dest "") (set ppaint_dest @default-dest))
  32.  
  33. (set ppaint_dest (askdir
  34.     (prompt #which-dir)
  35.     (help #which-dir-help)
  36.     (default ppaint_dest)
  37.     (newpath)
  38. ))
  39.  
  40. (set target1 (tackon ppaint_dest "PPaint"))
  41. (if (<> (exists target1) 1) (if (= (exists target1) 2) (set ppaint_dest target1)))
  42. (set @default-dest ppaint_dest)
  43.  
  44. (set target1 (tackon ppaint_dest "PPaint"))
  45. (if (<> (exists target1) 1) (message #error-ppaint) (
  46.     (if (AND (AND (<> (getsize target1) 681608) (<> (getsize target1) 684056)) (<> (getsize target1) 368100)) (message #message-ppaintnotok) (
  47.  
  48.         (if (= (getsize target1) 681608) (
  49.             (working #busy-ppaint)
  50.             (set runstring (cat "spatch >NIL: <NIL: \"-o" target1 "\" -pPP70-71_standard.pch \"" target1 "\""))
  51.             (run runstring)
  52.         ))
  53.  
  54.         (if (= (getsize target1) 684056) (
  55.             (working #busy-ppaint)
  56.             (set runstring (cat "spatch >NIL: <NIL: \"-o" target1 "\" -pPP70-71_deploded.pch \"" target1 "\""))
  57.             (run runstring)
  58.         ))
  59.  
  60.         (if (= (getsize target1) 368100) (
  61.             (working #busy-ppaint)
  62.             (set runstring (cat "spatch >NIL: <NIL: \"-o" target1 "\" -pPP70-71_imploded.pch \"" target1 "\""))
  63.             (run runstring)
  64.         ))
  65.         (exit)
  66.     ))
  67. ))
  68.  
  69. (exit (quiet))
  70.